<%@ Language=VBScript %> <%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %> <% Dim objPCWeb Set objPCWeb = Server.CreateObject("PCWebAdmin.PCWebUsers") If objPCWeb.Error Then WriteErrorMessage objPCWeb.ErrorDescription End If if Not gblnIsLoggedIn then WriteErrorMessage GetText("ErrorUserNotLoggedIn") & " " & GetText("AnonAccessDisabled") else ''''''''''''''''''''''''''''''''''''''' ''''' Start of User Detail Screen ''''' ''''''''''''''''''''''''''''''''''''''' %>

<%=GetText("MySummary")%>

<% ' Find the details of the user objPCWeb.SeekUser(gstrLoggedInUser) if (UCase(objPCWeb.UserName) <> UCase(gstrLoggedInUser)) then ' No match. WriteErrorMessage GetTextReplace("ErrorCantFindUser", Array(gstrLoggedInUser)) Else %>

<% If gblnHasNetCharging or gblnShowUserNetUsageTotals Then %> <% End If %>

<%=GetText("Username")%>:	<%= objPCWeb.UserName %>
<%=GetText("Credit")%>:	<%= objPCWeb.CreditText %>
<%=GetText("PagesPrinted")%>:	<%= FormatNumber(objPCWeb.PagesPrinted, 0, true, false, true) %>
<%=GetText("NetDataUsed")%>:	<%= objPCWeb.TotalMBText & " " & GetText("MBAbbr") %>
<%=GetText("NetTimeUsed")%>:	<%= objPCWeb.TotalNetHoursText & " " & GetText("HoursAbbr")%>
<%=GetText("Privilege")%>:	<% if objPCWeb.Unrestricted then %> <%=GetText("Unrestricted")%> <% else %> <%=GetText("Restricted")%> <% end if %>

<% ''''''''''''''''''''''''''''''''''''' ''''' End of User Detail Screen ''''' ''''''''''''''''''''''''''''''''''''' End If End If Set objPCWeb = nothing %>